<script>on mouseUpanswer "Delete all the records for this Leader?" with "Yes" or "Cancel"if it is "Cancel" then exit mouseUpset cursor to busylock screenset lockMessages to trueput empty into cd fld "Leaders" of cd "Members"put fld "Name" into nameput "Deleting all records for" && name & ", please stand by!"repeat foreverset cursor to busyfind whole nameif the result is not emptythen exit repeatelse doMenu "Delete Card"end repeatgo cd "Members"unlock screenupdateListing position,leaders--play harpsichord "gq cq"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>10</left>
<top>281</top>
<right>110</right>
<bottom>303</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Unlock Text</name>
<script>on mouseUpif the name of the target contains "Unlock Text" thenunLockTextelselockTextend ifend mouseUpon LockTextset the name of the target to "Unlock Text"repeat with i = 1 to the number of fldsset lockText of fld i to trueend repeatend LockTexton UnlockTextset the name of the target to "Lock Text"repeat with i = 1 to the number of fldsset the lockText of fld i to falseend repeatend UnlockText</script>
<script>on mouseUpeffect1go cd "Members"end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>479</left>
<top>224</top>
<right>512</right>
<bottom>246</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New</name>
<script>on mouseUpglobal opput fld "ActiveOrNot" into ldrPlaceput empty into opask "Enter new Leaders name"if it is empty then exit mouseUpput it into nameask "What is his current position?"put it into positionask "What is his phone number?"put it into phoneask "What is his current address?"put it into addressput "This takes just a few seconds, please stand by."lock screenset lockMessages to trueset cursor to watchdoMenu "New card" -- new stats cardput name into fld "Name"put position into fld "Position"put line 1 of card fld defaults of cd "members" into fld Stateput line 2 of card fld defaults of cd "members" into fld Cityput phone into fld "Phone"put address into fld "Address"put ldrPlace into fld "ActiveOrNot"go bg "Members"updateListing op,leadershide msggo bg "Leaders"find whole nameplay "harpsichord" tempo 120 "ce e g c5 g4 c5 e"end mouseUp</script>
<script>on openCardif fld "BirthDate" is not empty thenput howLong(fld BirthDate) into fld "Age"elseput empty into fld Ageend ifif fld DateJoined is not empty thenput howLong(fld DateJoined) into fld ScoutYearselseput empty into fld ScoutYearsend ifend openCard</script>